home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / speedy hires (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  741b  |  30 lines
  1. 100 poke51,0:poke52,92:poke55,0:poke56,92
  2. 110 zf=0:hf=1:f=16*zf+hf
  3. 120 poke56576,(peek(56576)and252)or2
  4. 130 poke56578,peek(56578)or3
  5. 140 poke53265,peek(53265)or32
  6. 150 poke53272,120:poke648,92
  7. 160 b=24576:gosub1000:sys49152
  8. 170 fori=23552to24551:pokei,f:next
  9. 200 x1=1:x2=16:y1=1:y2=16
  10. 201 fori=1to20step0.66
  11. 210 forx=x1tox2:y=y1:gosub900:next
  12. 212 forx=x1tox2:y=y2:gosub900:next
  13. 213 fory=y1toy2:x=x1:gosub900:next
  14. 214 fory=y1toy2:x=x2:gosub900:next
  15. 240 x1=x1:x2=x2+i:y1=y1:y2=y2+i
  16. 250 next:goto950
  17. 900 by=(xand504)+40*(yand248)+(yand7)
  18. 910 bi=7-(xand7)
  19. 920 pokeb+by,peek(b+by)or(2^bi)
  20. 930 return
  21. 950 poke198,0:wait198,1
  22. 951 poke53272,21:poke648,4
  23. 952 poke53265,peek(53265)and223
  24. 953 poke56578,63:poke56576,151
  25. 954 sys58692:end
  26. 1000 fori=49152to49186:readd:pokei,d:next:return
  27. 1010 data162,96,160,0,134,100,132,99,169,0,170,145,99
  28. 1020 data200,192,0,208,249,232,224,32,240,11,164,100,200
  29. 1030 data132,100,160,0,192,0,240,233,96
  30.